PC World Komputer 2010 April/PCWorld0410.iso/hity wydania/Glary Utilities/gusetup.exe/{app}/shredder.exe/RCDATA/TFRMMAIN/TFRMMAIN.txt

Text File | 2010-01-14 | 6KB | 238 lines

object frmmain: Tfrmmain
  Left = 165
  Top = 170
  AutoScroll = False
  Caption = 'frmmain'
  ClientHeight = 446
  ClientWidth = 627
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  DesignSize = (
    627
    446)
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 8
    Top = 8
    Width = 611
    Height = 401
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Secure Delete'
      DesignSize = (
        603
        373)
      object Label1: TLabel
        Left = 8
        Top = 8
        Width = 585
        Height = 33
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoSize = False
        Caption =
          'Utility to destory sensitive data so that they can'#39't be recoved ' +
          'and viewed by others.This tool uses utmost safety method America' +
          'n Dod 5220.22-M developed by US Department of Defence to securel' +
          'y remove the data.'
        Transparent = True
        WordWrap = True
      end
      object Label2: TLabel
        Left = 11
        Top = 350
        Width = 161
        Height = 17
        Anchors = [akLeft, akBottom]
        AutoSize = False
        Caption = 'Repeat the delete operation:'
        Transparent = True
        WordWrap = True
      end
      object vtree1: TVirtualDrawTree
        Left = 8
        Top = 40
        Width = 505
        Height = 300
        Anchors = [akLeft, akTop, akRight, akBottom]
        DragMode = dmAutomatic
        DragOperations = [doCopy, doMove, doLink]
        Font.Charset = DEFAULT_CHARSET
        Font.Color = 5263440
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        Header.AutoSizeIndex = 0
        Header.Font.Charset = DEFAULT_CHARSET
        Header.Font.Color = clWindowText
        Header.Font.Height = -11
        Header.Font.Name = 'Tahoma'
        Header.Font.Style = []
        Header.Height = 20
        Header.Options = [hoDrag, hoHotTrack, hoVisible]
        ParentBackground = False
        ParentFont = False
        TabOrder = 0
        TreeOptions.AutoOptions = [toAutoExpand, toAutoScroll, toAutoScrollOnExpand, toAutoSpanColumns, toAutoTristateTracking, toAutoHideButtons, toAutoDeleteMovedNodes]
        TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
        TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
        TreeOptions.SelectionOptions = [toDisableDrawSelection, toExtendedFocus, toLevelSelectConstraint, toMiddleClickSelect, toMultiSelect, toRightClickSelect, toSiblingSelectConstraint, toCenterScrollIntoView, toSimpleDrawSelection]
        OnDrawNode = vtree1DrawNode
        OnGetImageIndex = vtree1GetImageIndex
        OnInitChildren = vtree1InitChildren
        OnInitNode = vtree1InitNode
        OnResize = vtree1Resize
        Columns = <
          item
            Position = 0
            Width = 310
            WideText = 'Name'
          end
          item
            Alignment = taRightJustify
            Position = 1
            Width = 80
            WideText = 'Size'
          end
          item
            Position = 2
            Width = 100
            WideText = 'Type'
          end
          item
            Position = 3
            Width = 100
            WideText = 'Date Modified'
          end>
      end
      object SpinEdit1: TSpinEdit
        Left = 168
        Top = 347
        Width = 65
        Height = 22
        Anchors = [akLeft, akBottom]
        MaxValue = 10
        MinValue = 1
        TabOrder = 1
        Value = 3
      end
      object BitBtn3: TBitBtn
        Left = 524
        Top = 39
        Width = 75
        Height = 25
        Action = actaddfile
        Anchors = [akTop, akRight]
        Caption = 'Add File(s)'
        TabOrder = 2
      end
      object BitBtn4: TBitBtn
        Left = 524
        Top = 71
        Width = 75
        Height = 25
        Action = actaddfolder
        Anchors = [akTop, akRight]
        Caption = 'Add Folder'
        TabOrder = 3
      end
      object BitBtn5: TBitBtn
        Left = 525
        Top = 103
        Width = 75
        Height = 25
        Action = actremove
        Anchors = [akTop, akRight]
        Caption = 'Remove'
        TabOrder = 4
      end
      object BitBtn6: TBitBtn
        Left = 525
        Top = 314
        Width = 75
        Height = 25
        Action = actdelete
        Anchors = [akRight, akBottom]
        Caption = 'Delete!'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 5
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Wipe Free Space'
      ImageIndex = 1
      OnShow = TabSheet2Show
    end
  end
  object BitBtn1: TBitBtn
    Left = 544
    Top = 414
    Width = 75
    Height = 25
    Action = acthelp
    Anchors = [akRight, akBottom]
    Caption = 'Help'
    TabOrder = 1
  end
  object BitBtn2: TBitBtn
    Left = 456
    Top = 414
    Width = 75
    Height = 25
    Action = actclose
    Anchors = [akRight, akBottom]
    Caption = 'Close'
    TabOrder = 2
  end
  object OpenDialog1: TOpenDialog
    Left = 420
    Top = 104
  end
  object ActionList1: TActionList
    Left = 364
    Top = 112
    object actaddfile: TAction
      Caption = 'Add File(s)'
      OnExecute = actaddfileExecute
    end
    object actaddfolder: TAction
      Caption = 'Add Folder'
      OnExecute = actaddfolderExecute
    end
    object actremove: TAction
      Caption = 'Remove'
      OnExecute = actremoveExecute
      OnUpdate = actremoveUpdate
    end
    object actdelete: TAction
      Caption = 'Delete!'
      OnExecute = actdeleteExecute
      OnUpdate = actdeleteUpdate
    end
    object actclose: TAction
      Caption = 'Close'
      OnExecute = actcloseExecute
    end
    object acthelp: TAction
      Caption = 'Help'
      ShortCut = 112
      OnExecute = acthelpExecute
    end
  end
end